home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftsubi.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-18  |  696 b   |  28 lines
  1. .286
  2. ;=======================================
  3. ; Floating point without a coprocessor
  4. ;
  5. ;---------------------------------------
  6. cseg          segment word public 'code'
  7.               assume  cs:cseg,ss:cseg
  8.               assume  ds:cseg,es:cseg
  9.  
  10.               include math.inc
  11.  
  12. ;=======================================
  13. ; invoke ftsubi, real, integer
  14. ;
  15. ; Returns real -= integer
  16. ;---------------------------------------
  17. ftsubi        proc    near  real:NPR10, integer:SWORD
  18.               local   t:REAL10
  19.  
  20.               invoke  itoft, addr t, integer
  21.               invoke  ftsub, real, addr t
  22.  
  23.               ret
  24. ftsubi        endp
  25.  
  26. cseg          ends
  27.               end
  28.